home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / cboot.d64 / polygon.l < prev    next >
Text File  |  2009-01-23  |  493b  |  22 lines
  1. 0010 PROC POLYGON(SIDES,RADIUS) CLOSED
  2. 0020 //THIS ROUTINE DRAWS A POLYGON
  3. 0030 // CENTERED AT THE CURRENT
  4. 0040 // POSITION WITH SIDES AND RADIUS
  5. 0050 // GIVEN
  6. 0060 PI:=3.14159265
  7. 0070 LENGTH:=2*RADIUS*SIN(PI/SIDES)
  8. 0080 ANGLE:=180*(1-(SIDES-2)/SIDES)
  9. 0090 PENUP 
  10. 0100 FORWARD RADIUS
  11. 0110 RIGHT 90+ANGLE/2
  12. 0120 PENDOWN 
  13. 0130 FOR SIDE:=1 TO SIDES DO
  14. 0140 FORWARD LENGTH
  15. 0150 RIGHT ANGLE
  16. 0160 ENDFOR SIDE
  17. 0170 RIGHT 90-ANGLE/2
  18. 0180 PENUP 
  19. 0190 FORWARD RADIUS
  20. 0200 RIGHT 180
  21. 0210 ENDPROC POLYGON
  22.